home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / eyes / audreye5.wwModel / initialDefines.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  2.5 KB  |  90 lines
  1. set audreyeII(color) {1.0 0.0 0.0}
  2. set audreyeII(radius) 1.0
  3.  
  4. set audreyeII(thetaMax) 270.0
  5.  
  6. # this gives it a nice goofy look
  7. set audreyeII(volumePreservingScaleFactor) .875
  8.  
  9. set xT 0
  10. set yT .3
  11. set zT 0
  12. set xR 0
  13. set yR 38
  14. set zR 0
  15.  
  16. set eyeBall(irisColor)  {.389981 .305734 .78196}
  17. set eyeBall(irisSize)  .12
  18. set eyeBall(pupilSize) .05 
  19. set eyeBall(bloodShot) .85
  20.  
  21. set eyeBall(upDownR) 0.5
  22. proc rotateEyeBallUpDown {u min max}  {  Rotate [expr {lerpDown($u, $min, $max)}] 1 0 0 }
  23.  
  24. set eyeBall(leftRightR) 0.5
  25. set eyeBall(leftRightRMin) -45
  26. set eyeBall(leftRightRMax) 45
  27. proc rotateEyeBallLeftRight {u min max}  {  Rotate [expr {lerpDown($u, $min, $max)}] 0 1 0 }
  28.  
  29. set eyeBall(openCloseR) 0
  30. set eyeBall(openCloseRMin) 270
  31. set eyeBall(openCloseRMax) 360
  32.  
  33. set text(fontName) Helvetica
  34. set text(line1Color) {1 1 1}
  35. set text(line1) {}
  36. set text(line2Color) {1 1 1}
  37. set text(line2) {}
  38. set text(size) 16
  39. set text(xT) -1.7
  40. set text(yT) -.75
  41. set text(zT) 0
  42. set text(xR) 0
  43. set text(yR) 0
  44. set text(zR) 0
  45.  
  46. set slider(u) 0
  47. set slider(min) 0
  48. set slider(max) 1
  49. set slider(width) 3
  50. set slider(height) .25
  51. set slider(fontName) Helvetica
  52. set slider(fontSize) 16
  53. set slider(color) {1.0 0.0 0.0}
  54.  
  55. proc slider {current min max width height fontName fontSize sliderColor} {
  56.  
  57.   if {$current < 0} {set current 0} {}
  58.   if {$current > 1} {set current 1} {}
  59.   if {$max != $min} { set u [expr {double($current)/(double($max) - double($min))}]} {set u 0}
  60.   AttributeBegin
  61.     Attribute identifier name sliderAtValue${current}
  62.     Sides 2
  63.     AttributeBegin
  64.       Attribute identifier name min
  65.       # need to go up and and in
  66.       Patch bilinear P "0 0 [expr {-.75 * $height}] 0 [expr {-1 * $height}] [expr {-.75 * $height}]  \
  67.                         0 0 [expr {.75 * $height}] 0 [expr {-1 * $height}] [expr {.75 * $height}]"
  68.       Translate 0 [expr {.5 * $height}] 0
  69.       WW3DText $fontName $fontSize [format %g $min] center
  70.     AttributeEnd
  71.  
  72.     AttributeBegin
  73.       Attribute identifier name max
  74.       Translate $width 0 0 
  75.       Patch bilinear P "0 0 [expr {-.75 * $height}] 0 [expr {-1 * $height}] [expr {-.75 * $height}]  \
  76.                         0 0 [expr {.75 * $height}] 0 [expr {-1 * $height}] [expr {.75 * $height}]"
  77.       Translate 0 [expr {.5 * $height}] 0
  78.       WW3DText $fontName $fontSize [format %g $max] center
  79.     AttributeEnd
  80.  
  81.     AttributeBegin
  82.       Attribute identifier name slider
  83.       Color $sliderColor
  84.       Scale $u 1 1
  85.       Patch bilinear P "0 0 0   0 [expr {-1 * $height}] 0   \
  86.                         $width 0 0   $width [expr {-1 * $height}] 0"  
  87.     AttributeEnd
  88.   AttributeEnd
  89. }
  90.